Option Explicit
Sub C_Sample070()
    Application.AddIns("WqW").Installed = True	'wWqW
    'Application.AddIns("WqW").Installed = False	'Ѱ
End Sub

